home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0006.ZIP / SETMEM.BAS < prev    next >
BASIC Source File  |  1984-02-26  |  717b  |  21 lines
  1. 1 'ROUTINE TO SET MEMORY FROM BASIC
  2. 2 '
  3. 10 DEFINT A-Z
  4. 20 DEF SEG=&H40
  5. 30 KL = PEEK(&H13): KH = PEEK(&H14)
  6. 40 HAVE = KL + 256*KH
  7. 50 PRINT "You currently have" HAVE "kilobytes of main memory."
  8. 60 PRINT
  9. 70 INPUT "How many kilobytes will suffice";WANT
  10. 80 IF WANT = 0 THEN WANT = HAVE:GOTO 110 'ENTER alone gives status quo.
  11. 90 IF WANT < 35 THEN WANT = 35  'Ensure space for BASICA + AUTOEXEC.BAS.
  12. 100 IF WANT >320 THEN WANT = 320 'Current physical limit.
  13. 110 KL = WANT MOD 256: KH = WANT\256
  14. 120 POKE &H13,KL: POKE &H14,KH
  15. 130 WANT = WANT-64: IF WANT < 0 THEN WANT = 0
  16. 140 KL = WANT MOD 256: KH = WANT\256
  17. 150 POKE &H15,KL: POKE &H16,KH
  18. 160 SYSTEM
  19. 170 ' (still must reboot to let DOS adjust)
  20. 180 END
  21.